home *** CD-ROM | disk | FTP | other *** search
/ Workbench Add-On / Workbench Add-On - Volume 1.iso / Dev / Triton / Developer / M2Amiga / TritonL.def < prev   
Text File  |  1995-06-28  |  4KB  |  126 lines
  1. (* REVISION HEADER ×××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××× *
  2.    
  3.  | $VER: TritonL.def 1.01 (26.09.94) by Stefan Schulz [sts]
  4.  
  5.  | Desc: Interface to Triton.library, Function Part
  6.  
  7.  | Dist: This Module is © Copyright 1994 by Stefan Schulz
  8.  |       It may be freely Distributed (Freeware)
  9.  
  10.  | Rqrs: triton.library V1.1
  11.  |       Triton is © Copyright 1993/1994 by Stefan Zeiger
  12.  
  13.  | Lang: M2Amiga
  14.  | Trns: M2Amiga Modula 2 Software Development System
  15.  |       © Copyright by A+L AG, CH-2540 Grenchen
  16.  
  17.  | Hist: Revision 1.01 [sts] \26.09.94\\26.09.94\
  18.  |        `- Names corrected to M2 Standard
  19.  | 
  20.  |       Revision 1.00 [sts] \05.09.94\\06.09.94\
  21.  |        `- initial revision
  22.  
  23.  * ×××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××× *)
  24.  
  25. DEFINITION MODULE TritonL{"triton.library",1};
  26.  
  27. (* IMPORTS ********************************************************************** *)
  28.  
  29. IMPORT  d       : TritonD;
  30.  
  31. IMPORT  ed      : ExecD,
  32.         id      : IntuitionD,
  33.         R,
  34.         ud      : UtilityD;
  35.  
  36. (* ****************************************************************************** *)
  37.  
  38. (* ------------------------------------------------------------------------------ *)
  39. (* library name and version                                                       *)
  40. (* ------------------------------------------------------------------------------ *)
  41.  
  42. VAR     tritonVersion   : INTEGER;
  43.         tritonBase      : ed.LibraryPtr;
  44.  
  45. CONST   tritonMinVersion= 1;
  46.         tritonName      = "triton.library";
  47.  
  48.  
  49. PROCEDURE AutoRequest
  50.               ( app{R.A1}               : d.AppPtr;
  51.                 lockproject{R.A0}       : d.ProjectPtr;
  52.                 requestTRWinTags{R.A2}  : ud.TagItemPtr) : LONGCARD; CODE -84;
  53.  
  54. PROCEDURE CloseProject
  55.               ( project{R.A0}   : d.ProjectPtr  ); CODE -36;
  56.  
  57. PROCEDURE CloseWindowSafely
  58.               ( win{R.A0}       : id.WindowPtr  ); CODE -126;
  59.  
  60. PROCEDURE CreateApp
  61.               ( appTags{R.A1}   : ud.TagItemPtr ) : d.AppPtr; CODE -96;
  62.  
  63. PROCEDURE DeleteApp
  64.               ( app{R.A1}       : d.AppPtr      ); CODE -102;
  65.  
  66. PROCEDURE EasyRequest
  67.               ( app{R.A1}       : d.AppPtr;
  68.                 bodyfmt{R.A2}   : d.StrPtr;
  69.                 gadfmt{R.A3}    : d.StrPtr;
  70.                 tagList{R.A0}   : ud.TagItemPtr ) : LONGCARD; CODE -90;
  71.  
  72. PROCEDURE FirstOccurance
  73.               ( ch{R.D0}        : CHAR;
  74.                 str{R.A0}       : d.StrPtr      ) : LONGINT; CODE -42;
  75.  
  76. PROCEDURE GetAttribute
  77.               ( project{R.A0}   : d.ProjectPtr;
  78.                 id{R.D0}        : LONGCARD;
  79.                 attribute{R.D1} : LONGCARD      ) : LONGCARD; CODE -66;
  80.  
  81. PROCEDURE GetErrorString
  82.               ( num{R.D0}       : LONGCARD      ) : d.StrPtr; CODE -54;
  83.  
  84. PROCEDURE GetLastError
  85.               ( app{R.A1}       : d.AppPtr      ) : CARDINAL; CODE -132;
  86.  
  87. PROCEDURE GetMsg
  88.               ( app{R.A1}       : d.AppPtr      ) : d.MessagePtr; CODE -108;
  89.  
  90. PROCEDURE LockProject
  91.               ( project{R.A0}   : d.ProjectPtr  ); CODE -72;
  92.  
  93. PROCEDURE LockScreen
  94.               ( project{R.A0}   : d.ProjectPtr  ) : id.ScreenPtr; CODE -138;
  95.  
  96. PROCEDURE NumOccurances
  97.               ( ch{R.D0}        : CHAR;
  98.                 str{R.A0}       : d.StrPtr      ) : LONGINT; CODE -48;
  99.  
  100. PROCEDURE OpenProject
  101.               ( app{R.A1}       : d.AppPtr;
  102.                 tagList{R.A0}   : ud.TagItemPtr ) : d.ProjectPtr; CODE -30;
  103.  
  104. PROCEDURE ReplyMsg
  105.               ( message{R.A1}   : d.MessagePtr  ); CODE -114;
  106.  
  107. PROCEDURE SetAttribute
  108.               ( project{R.A0}   : d.ProjectPtr;
  109.                 id{R.D0}        : LONGCARD;
  110.                 attribute{R.D1} : LONGCARD;
  111.                 value{R.D2}     : LONGCARD      ); CODE -60;
  112.  
  113. PROCEDURE UnlockProject
  114.               ( project{R.A0}   : d.ProjectPtr  ); CODE -78;
  115.  
  116.  
  117. PROCEDURE UnlockScreen
  118.               ( screen{R.A0}    : id.ScreenPtr  ); CODE -144;
  119.  
  120. PROCEDURE Wait
  121.               ( app{R.A1}       : d.AppPtr;
  122.                 otherbits{R.D0} : LONGCARD      ) : LONGCARD; CODE -120;
  123.  
  124.  
  125. END TritonL.def
  126.